10 REM* DEFAULT DEMO -- JULY 1987
20 REM* BY AMIR MICHAIL
30 REM* SAVES AND READS DEFAULT VALUES
40 REM* FROM LAST BLOCK OF PROGRAM
50 :
100 Z$=CHR$(0): OPEN 15,8,15
110 OPEN 2,8,2,"#"
120 REM READ VALUES FROM DISK BUFFER
130 PRINT#15,"M-R"CHR$(24)CHR$(0)CHR$(2)
140 GET#15,T$,S$:T=ASC(T$+Z$):S=ASC(S$+Z$)
150 PRINT#15,"B-P";2;2
170 GET#2,C1$,C2$,C3$
180 POKE53281,ASC(C1$+Z$):POKE53280,ASC(C2$+Z$):POKE646,ASC(C3$+Z$)
195 CLOSE2:CLOSE15
210 PRINT ,"CHANGE COLOR DEFAULTS";
220 INPUT K$:IF K$="N" THEN 320
230 INPUT "BACKGROUND, BORDER, TEXT COLORS:";C1,C2,C3
240 POKE53281,C1:POKE53280,C2:POKE646,C3
250 OPEN15,8,15:OPEN2,8,2,"#"
260 REM WRITE VALUES TO LAST SECTOR
270 PRINT#15,"B-P";2;2
280 PRINT#2,CHR$(C1)CHR$(C2)CHR$(C3);
290 PRINT#15,"U2";2;0;T;S
300 PRINT "DONE!"
310 CLOSE2:CLOSE15
320 PRINT "PROGRAM CAN START FROM THIS POINT."
330 END